3 IFB>1THEN9006
4 FORK=1TO13:READA$:NEXT:GOTO11
5 DATA A,JANUAR,FEBRUAR,MAERZ,APRIL,MAI,JUNI,JULI,AUGUST,SEPTEMBER
6 DATA OKTOBER,NOVEMBER,DEZEMBER
11 FORI=0TO15:POKEV+I,0:NEXT
12 FORI=1024TO2023:POKEI,0:NEXT
21 PRINT"[147]":POKE53280,Q:POKE53281,8:V=53248:POKEV+21,0
22 INPUT"[158] WIEVIELE MITSPIELER (1-4)";M
23 IFM<1ORM>4THEN21
24 PL=M:M=M-1:FORI=0TOM:PRINT" NAME VON SPIELER NR"I+1"";:INPUTN$(I):NEXTI
25 PRINT" IST ALLES KORREKT (J/N)
26 [161]A$:[139]A$[178]"J"[167]900
27 [139]A$[178]"N"[167]21
28 [137]26
900 A[178][171]1:MU(0)[178]1:MU(1)[178]1:MU(2)[178]1:MU(3)[178]1
904 C[178]20000:GE(0)[178]C:GE(1)[178]C:GE(2)[178]C:GE(3)[178]C
910 JA(0)[178]1970:JA(1)[178]1970:JA(2)[178]1970:JA(3)[178]1970
911 MO(0)[178]1:MO(1)[178]1:MO(2)[178]1:MO(3)[178]1
949 A[178]A[170]1:[139]A[178]PL[167]A[178]0
950 RE(A)[178][181](80[172][187](1))[170]1:RA1(A)[178]RE(A):RA1(A)[178]RA1(A)[172]200:RA1(A)[178]RA1(A)[170]WA1(A)
951 VR(A)[178][181](40[172][187](1))[170]15
952 VR(A)[178]VR(A)[173]100:T[178]RA1(A):T[178]T[172]VR(A):RA1(A)[178]RA1(A)[171]T
953 WA1(A)[178]RA1(A):WA1(A)[178][181](WA1(A))
960 W1(A)[178][181](250[172][187](1))[170]400:W1(A)[178]W1(A)[171]RE(A)[172]5:W1(A)[178]W1(A)[173]100
969 ZN(A)[178][181](20[172][187](1))[170]5:[139]GE(A)[177][178]0[167]971
970 C[178]ZN(A):D[178]GE(A)[172]C[173]100:GE(A)[178]GE(A)[170]D:GE(A)[178][181](GE(A))
971 O1(A)[178][181](21[172][187](1))[170]15
972 D1(A)[178][181](5[172][187](1))[170]1
973 Z1(A)[178][181](9[172][187](1))[170]5:[141]978:[137]982
978 F[178]0:F[178]DP(A)[172]1000:F[178]F[170]TP(A)[172]1500:F[178]F[170]TA(A)[172]6000:F[178]F[170]OL(A)[172]5000:J[178]F:F[178]F[172][171]1
979 JI[178]J:[142]
982 [139]J[177]50000[167]MU(A)[178]1.5
983 [139]J[177]100000[167]MU(A)[178]2
984 [139]J[177]150000[167]MU(A)[178]2.5
985 [139]J[177]200000[167]MU(A)[178]3
986 [139]J[177]300000[167]MU(A)[178]3.5
987 [139]J[177]400000[167]MU(A)[178]4
988 [139]J[177]500000[167]MU(A)[178]5
989 [139]J[177]600000[167]MU(A)[178]6
990 [139]J[177]700000[167]MU(A)[178]7
991 [139]GE(A)[179]F[167]10000
999 [151]53265,65:[151]53269,255
1000 [153]"LOAD":[151]53248[170]22,24:[151]53282,0:[151]50173,22
1001 [151]50174,22:[151]50175,22:[129]I[178]43[164]46:[151]V[170]I,10:[130]:[151]V[170]27,244
1002 [151]V[170]29,240:[151]V[170]11,50:[151]V[170]13,50:[151]V[170]15,50:[151]V[170]23,12
1003 [151]V[170]10,137:[151]V[170]12,185:[151]V[170]14,233:[151]V[170]39,1:[151]53283,12
1004 [151]50171,22:[151]50170,22:[151]V[170]41,8:[151]V[170]42,6:[151]V[170]4,40:[151]V[170]5,114
1005 [151]V[170]6,40:I[178]100000[173]WA1(A):J[178]32[173]I:[151]V[170]7,114[171]J:[151]50168,18:[151]V[170]21,255
1006 [151]V[170]2,111:[151]V[170]3,101:[151]50169,19:[151]V[170]28,2:[151]V[170]40,1:[151]53285,3
1010 MO(A)[178]MO(A)[170]1:[141]7000
1013 [153]"  RIGHT$MID$(null)WAIT"
1014 [153]" DEF(null)(null)(null)(null)(null)WAIT"
1015 [153]" STOPLEFT$WAITFORSPC(SPC(SPC(CHR$WAITOPENSIE BESITZEN :   SYSERDOEL : 00000 (null)
1016 PRINT" [144][200][146][129][166][166][166][199][146]  [210][210][210][210][210][210][146]         [158]WASSER : 00000 [255]
1017 [153]" STOPLEFT$WAITFORSPC(SPC(SPC(CHR$WAIT LEFT$OPEN      STOPCHR$WAIT    SYSDATTELOBST : 00000 T
1018 PRINT" [144][200][146][129][166][166][166][199][146] [129][200][211][211][151][212][213][214][146] [144][199][146]    [158]ZIGARETTEN : 00000
1019 [153]" STOPLEFT$ATNPEEKLENCHR$WAIT STOPLEFT$PRINT(null)(null)(null)ORSINLOGSTOPCHR$WAIT     SYSVERMOEGEN $
1020 PRINT" [144][200][196][197][198][199][146] [200][153][172][177][187][165][180][162][144][199][146]
1021 [153]" STOPLEFT$ATNPEEKLENCHR$WAIT LEFT$PRINTINTGETLISTABSTHENPRINT+POSSTOPCHR$WAIT   OPENWASSERPREIS : $
1022 PRINT" [144][200][196][197][198][199][146] [200][155] [175][171] [171][175][144][199][146]   [159]DATTELPREIS : $
1023 [153]" STOPLEFT$ATNPEEKLENCHR$WAIT  (null)(null)(null)(null)(null)(null)WAIT  OPEN1 STANGE ZIG. : $
1024 PRINT" [144][200][196][197][198][199][146]IHRE FIRMA [159]1 BARREL OEL : $
1025 [153]"STOP*SYSGEFALLENER REGEN   VERKAUF    STOPANKAUF
1026 PRINT" [158]BETRUG :
1027 [153]"                   SYS_ OEL      _ OEL
1028 PRINT"[144]*[158]SCHULDENZINS      [158]# DATTELN  # WASSER
1029 [153]"                   SYS^ ZIG.     ^ ZIG.
1030 PRINT"[144]*[158]VERLUSTE DURCH    [144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]
1031 [153]" SYSVERDUNSTUNG      STOPLEFT$WAITMIT SYSJOY.\ AUSSUCHENSTOPCHR$WAIT
1032 PRINTTAB(19)"[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]"
1033 PRINT"[158]  DURCH F1 [158]WERDEN ALLE GUTER VERKAUFT"
1034 X=33:Y=2:GOSUB9999:PRINT"[144]WEITER";
1049 X=35:Z=195
1050 IFOE1(A)>9THENX=34:Z=194
1051 IFOE1(A)>99THENX=33:Z=193
1052 IFOE1(A)>999THENX=32:Z=192
1053 IFOE1(A)>9999THENX=31:Y=4:GOSUB9999:PRINT""OE1(A)"";:GOTO1059
1054 Y=4:GOSUB9999:PRINT""OE1(A)"";:POKE49152+Z,48:POKE55296+Z,1
1059 X=35:Z=235
1060 IFWA1(A)>9THENX=34:Z=234
1061 IFWA1(A)>99THENX=33:Z=233
1062 IFWA1(A)>999THENX=32:Z=232
1063 IFWA1(A)>9999THENX=31:Y=5:GOSUB9999:PRINT""WA1(A)"";:GOTO1069
1064 Y=5:GOSUB9999:PRINT""WA1(A)"";:POKE49152+Z,48:POKE55296+Z,1
1069 X=35:Z=275
1070 IFDA1(A)>9THENX=34:Z=274
1071 IFDA1(A)>99THENX=33:Z=273
1072 IFDA1(A)>999THENX=32:Z=272
1073 IFDA1(A)>9999THENX=31:Y=6:GOSUB9999:PRINT""DA1(A)"";:GOTO1079
1074 Y=6:GOSUB9999:PRINT""DA1(A)"";:POKE49152+Z,48:POKE55296+Z,1
1079 X=35:Z=315
1080 IFZI1(A)>9THENX=34:Z=314
1081 IFZI1(A)>99THENX=33:Z=313
1082 IFZI1(A)>999THENX=32:Z=312
1083 IFZI1(A)>9999THENX=31:Y=7:GOSUB9999:PRINT""ZI1(A)"";:GOTO1088
1084 Y=7:GOSUB9999:PRINT""ZI1(A)"";:POKE49152+Z,48:POKE55296+Z,1
1088 X=31:Y=8:GOSUB9999:PRINT"         ";
1089 GE(A)=INT(GE(A)):X=31:Y=8:GOSUB9999:PRINT""GE(A)"";
1090 X=9:Y=16:GOSUB9999:PRINT""RE(A)"[219][219]";
1091 VR(A)=VR(A)*100:X=13:Y=21:GOSUB9999:PRINT""VR(A)"%";
1092 X=33:Y=10:GOSUB9999:PRINT""W1(A)"";
1093 X=13:Y=18:GOSUB9999:PRINT""ZN(A)"%";
1094 X=33:Y=11:GOSUB9999:PRINT""D1(A)"";
1095 X=33:Y=12:GOSUB9999:PRINT""Z1(A)"";
1096 X=33:Y=13:GOSUB9999:PRINT""O1(A)"";:POKE53265,155
1098 IFP=2THEN1111
1099 IFP=3THEN1121
1100 J=PEEK(56320):P=1
1101 IFJ=126THEN1110
1102 IFJ=123THEN1200
1103 IFJ=125THEN1300
1104 IFJ=119THEN1400
1105 IFJ=122THEN1800
1106 K=PEEK(197)
1107 IFK=4THEN1800
1108 GOTO1100
1110 GOSUB2000:X=20:Y=15:GOSUB9999:PRINT"[144]VERKAUF";:PRINTTAB(31)"ANKAUF";
1111 J=PEEK(56320):P=2
1112 IFJ=126THEN1119
1113 IFJ=123THEN1500
1114 IFJ=119THEN1700
1115 IFJ=125THEN1600
1116 GOTO1111
1119 GOSUB2000
1120 X=31:Y=15:GOSUB9999:PRINT"[144]ANKAUF";:X=33:Y=2:GOSUB9999:PRINT"WEITER";
1121 J=PEEK(56320):P=3
1122 IFJ=111THEN2100
1123 IFJ=126THEN1125
1124 GOTO1121
1125 GOSUB2000:X=33:Y=2:GOSUB9999:PRINT"[144]WEITER";
1126 X=20:Y=15:GOSUB9999:PRINT"VERKAUF";:GOTO1100
1150 FORK=BTOB-2STEP-1:POKE49152+K,48:POKE55296+K,1:NEXT
1151 VR(A)=VR(A)/100:GOTO1049
1200 GOSUB2005
1201 X=2:Y=23:GOSUB9999:PRINT"[158]WIEVIEL BARREL OEL VERKAUFEN :00000"
1202 POKE50168,18:POKEV+16,1:Q=56:POKEV,Q:POKEV+1,228
1209 Z=1:L=956:M=47
1210 J=PEEK(56320)
1211 IFJ=123THEN1220
1212 IFJ=119THEN1230
1213 IFJ=126THEN1240
1214 IFJ=125THEN1250
1215 IFJ=111THEN1260
1216 GOTO1210
1220 Z=Z*10:Q=Q-8:L=L-1:IFQ=16THENQ=24:Z=Z/10:L=L+1:GOTO1210
1221 GOSUB2015:POKEV,Q:GOTO1210
1230 L=L+1:Z=Z/10:Q=Q+8:IFQ=64THENQ=56:Z=Z*10:L=L-1:GOTO1210
1231 GOSUB2015:POKEV,Q:GOTO1210
1240 M=M+1:IFM>57THENM=48
1241 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1210
1250 M=M-1:IFM<48THENM=57
1251 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1210
1260 Z=0:T=.1:FORK=0TO4:B=PEEK(50108-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
1261 IFZ<=OE1(A)THEN1264
1262 GOSUB2025:X=2:Y=23:GOSUB9999:PRINT"        DAS IST UNMOEGLICH !        "
1263 FORL=1TO1600:NEXT:GOTO1200
1264 B=Z:B=B*O1(A):GE(A)=GE(A)+B:OE1(A)=OE1(A)-Z:POKEV,0:POKEV+1,0
1265 X=2:Y=23:GOSUB9999:PRINT"                                     "
1266 B=194:GOTO1150
1300 GOSUB2005
1301 X=2:Y=23:GOSUB9999:PRINT"[158] WIEVIEL T DATTELN VERKAUFEN :00000"
1302 POKEV+16,1:Q=56:POKEV,Q:POKEV+1,228
1309 Z=1:L=956:M=47
1310 J=PEEK(56320)
1311 IFJ=123THEN1320
1312 IFJ=119THEN1330
1313 IFJ=126THEN1340
1314 IFJ=125THEN1350
1315 IFJ=111THEN1360
1316 GOTO1310
1320 Z=Z*10:Q=Q-8:L=L-1:IFQ=16THENQ=24:Z=Z/10:L=L+1:GOTO1310
1321 GOSUB2015:POKEV,Q:GOTO1310
1330 L=L+1:Z=Z/10:Q=Q+8:IFQ=64THENQ=56:Z=Z*10:L=L-1:GOTO1310
1331 GOSUB2015:POKEV,Q:GOTO1310
1340 M=M+1:IFM>57THENM=48
1341 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1310
1346 VR(A)=VR(A)/100
1347 FORK=274TO272STEP-1:POKE49152+K,48:POKE55296+K,1:NEXT:GOTO1049
1350 M=M-1:IFM<48THENM=57
1351 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1310
1360 Z=0:T=.1:FORK=0TO4:B=PEEK(50108-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
1361 IFZ<=DA1(A)THEN1364
1362 GOSUB2025:X=3:Y=23:GOSUB9999:PRINT"       DAS IST UNMOEGLICH !        "
1363 FORL=1TO1600:NEXT:GOTO1300
1364 B=Z:B=B*D1(A):GE(A)=GE(A)+B:DA1(A)=DA1(A)-Z:POKEV,0:POKEV+1,0
1365 X=3:Y=23:GOSUB9999:PRINT"                                    "
1366 B=274:GOTO1150
1400 GOSUB2005
1401 X=2:Y=23:GOSUB9999:PRINT"[158] WIEVIEL ZIGAETTEN VERKAUFEN :00000"
1402 POKEV+16,1:Q=56:POKEV,Q:POKEV+1,228
1409 Z=1:L=956:M=47
1410 J=PEEK(56320)
1411 IFJ=123THEN1420
1412 IFJ=119THEN1430
1413 IFJ=126THEN1440
1414 IFJ=125THEN1450
1415 IFJ=111THEN1460
1416 GOTO1410
1420 Z=Z*10:Q=Q-8:L=L-1:IFQ=16THENQ=24:Z=Z/10:L=L+1:GOTO1410
1421 GOSUB2015:POKEV,Q:GOTO1410
1430 L=L+1:Z=Z/10:Q=Q+8:IFQ=64THENQ=56:Z=Z*10:L=L-1:GOTO1410
1431 GOSUB2015:POKEV,Q:GOTO1410
1440 M=M+1:IFM>57THENM=48
1441 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1410
1450 M=M-1:IFM<48THENM=57
1451 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1410
1460 Z=0:T=.1:FORK=0TO4:B=PEEK(50108-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
1461 IFZ<=ZI1(A)THEN1464
1462 GOSUB2025:X=3:Y=23:GOSUB9999:PRINT"       DAS IST UNMOEGLICH !        "
1463 FORL=1TO1600:NEXT:GOTO1400
1464 B=Z:B=B*Z1(A):GE(A)=GE(A)+B:ZI1(A)=ZI1(A)-Z:POKEV,0:POKEV+1,0
1465 X=3:Y=23:GOSUB9999:PRINT"                                    "
1466 B=314:GOTO1150
1500 GOSUB2010
1501 X=2:Y=23:GOSUB9999:PRINT"[158]    WIEVIEL OEL MOECHTEN SIE :00000"
1502 POKEV+16,1:Q=56:POKEV,Q:POKEV+1,228
1509 Z=1:L=956:M=47
1510 J=PEEK(56320)
1511 IFJ=123THEN1520
1512 IFJ=119THEN1530
1513 IFJ=126THEN1540
1514 IFJ=125THEN1550
1515 IFJ=111THEN1560
1516 GOTO1510
1520 Z=Z*10:Q=Q-8:L=L-1:IFQ=16THENQ=24:Z=Z/10:L=L+1:GOTO1510
1521 GOSUB2015:POKEV,Q:GOTO1510
1530 L=L+1:Z=Z/10:Q=Q+8:IFQ=64THENQ=56:Z=Z*10:L=L-1:GOTO1510
1531 GOSUB2015:POKEV,Q:GOTO1510
1540 M=M+1:IFM>57THENM=48
1541 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1510
1550 M=M-1:IFM<48THENM=57
1551 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1510
1560 Z=0:T=.1:FORK=0TO4:B=PEEK(50108-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
1561 IFZ+OE1(A)<100000THEN1564
1562 GOSUB2025:X=6:Y=23:GOSUB9999:PRINT"    DAS IST UNMOEGLICH !        "
1563 FORL=1TO1600:NEXT:GOTO1500
1564 B=Z:B=B*O1(A):GE(A)=GE(A)-B:OE1(A)=OE1(A)+Z:POKEV,0:POKEV+1,0:GOSUB1810
1565 X=6:Y=23:GOSUB9999:PRINT"                                 "
1566 B=194:GOTO1150
1600 GOSUB2010
1601 X=1:Y=23:GOSUB9999:PRINT"[158]  WIEVIEL WASSER MOECHTEN SIE :00000"
1602 POKEV+16,1:Q=40:POKEV,Q:POKEV+1,228
1609 Z=100:L=954:M=47
1610 J=PEEK(56320)
1611 IFJ=123THEN1620
1612 IFJ=119THEN1630
1613 IFJ=126THEN1640
1614 IFJ=125THEN1650
1615 IFJ=111THEN1660
1616 GOTO1610
1620 Z=Z*10:Q=Q-8:L=L-1:IFQ=16THENQ=24:Z=Z/10:L=L+1:GOTO1610
1621 GOSUB2015:POKEV,Q:GOTO1610
1630 L=L+1:Z=Z/10:Q=Q+8:IFQ=48THENQ=40:Z=Z*10:L=L-1:GOTO1610
1631 GOSUB2015:POKEV,Q:GOTO1610
1640 M=M+1:IFM>57THENM=48
1641 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1610
1650 M=M-1:IFM<48THENM=57
1651 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1610
1660 Z=0:T=.1:FORK=0TO4:B=PEEK(50108-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
1661 IFZ+WA1(A)<100000THEN1664
1662 GOSUB2025:X=3:Y=23:GOSUB9999:PRINT"       DAS IST UNMOEGLICH !        "
1663 FORL=1TO1600:NEXT:GOTO1600
1664 B=Z:B=B*W1(A):GE(A)=GE(A)-B:WA1(A)=WA1(A)+Z:POKEV,0:POKEV+1,0
1665 X=3:Y=23:GOSUB9999:PRINT"                                    "
1666 B=234:I=100000/WA1(A):J=32/I:POKEV+7,114-J:GOTO1150
1700 GOSUB2010
1701 X=2:Y=23:GOSUB9999:PRINT"[158]  WIEVIEL STANGEN ZIGARETTEN :00000"
1702 POKEV+16,1:Q=56:POKEV,Q:POKEV+1,228
1709 Z=1:L=956:M=47
1710 J=PEEK(56320)
1711 IFJ=123THEN1720
1712 IFJ=119THEN1730
1713 IFJ=126THEN1740
1714 IFJ=125THEN1750
1715 IFJ=111THEN1760
1716 GOTO1710
1720 Z=Z*10:Q=Q-8:L=L-1:IFQ=16THENQ=24:Z=Z/10:L=L+1:GOTO1710
1721 GOSUB2015:POKEV,Q:GOTO1710
1730 L=L+1:Z=Z/10:Q=Q+8:IFQ=64THENQ=56:Z=Z*10:L=L-1:GOTO1710
1731 GOSUB2015:POKEV,Q:GOTO1710
1740 M=M+1:IFM>57THENM=48
1741 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1710
1750 M=M-1:IFM<48THENM=57
1751 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO1710
1760 Z=0:T=.1:FORK=0TO4:B=PEEK(50108-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
1761 IFZ+ZI1(A)<100000THEN1764
1762 GOSUB2025:X=4:Y=23:GOSUB9999:PRINT"      DAS IST UNMOEGLICH !        "
1763 FORL=1TO1600:NEXT:GOTO1700
1764 B=Z:B=B*Z1(A):GE(A)=GE(A)-B:ZI1(A)=ZI1(A)+Z:POKEV,0:POKEV+1,0:GOSUB1810
1765 X=4:Y=23:GOSUB9999:PRINT"                                   "
1766 B=314:GOTO1150
1800 B=OE1(A)
1801 C=DA1(A)
1802 D=ZI1(A)
1803 OE1(A)=OE1(A)-B:GE(A)=GE(A)+O1(A)*B
1804 DA1(A)=DA1(A)-C:GE(A)=GE(A)+D1(A)*C
1805 ZI1(A)=ZI1(A)-D:GE(A)=GE(A)+Z1(A)*D
1806 X=32:Y=4:GOSUB9999:PRINT"00000";
1807 X=32:Y=6:GOSUB9999:PRINT"00000";
1808 X=32:Y=7:GOSUB9999:PRINT"00000";:X=31:Y=8:GOSUB9999
1809 PRINT"         ";:X=31:Y=8:GOSUB9999:PRINT""GE(A)"  ";:GOTO1100
1810 T=INT(10*RND(1))+10:X=19:Y=21:GOSUB9999:PRINT"[158]MEHRWERTSTEUER"T"%";
1811 POKE50028,32:B=B*ST:B=B/100:GE(A)=GE(A)-B:RETURN
2000 POKE828,1:POKE829,21:POKE830,10:POKE831,200:POKE832,100:POKE833,1
2001 POKE834,1:POKE835,40:POKE836,10:SYS52900:RETURN
2005 POKE828,1:POKE829,21:POKE830,9:POKE831,50:POKE832,10:POKE833,1
2006 POKE834,1:POKE835,70:POKE836,10:SYS52900:RETURN
2010 POKE828,1:POKE829,21:POKE830,9:POKE831,130:POKE832,90:POKE833,1
2011 POKE834,1:POKE835,70:POKE836,30:SYS52900:RETURN
2015 POKE828,1:POKE829,21:POKE830,7:POKE831,80:POKE832,60:POKE833,1
2016 POKE834,1:POKE835,55:POKE836,20:SYS52900:RETURN
2020 POKE54276,0:POKE54273,50:POKE54287,20:POKE54296,15
2021 POKE54277,6:POKE54276,21:RETURN
2025 POKE828,1:POKE829,23:POKE830,12:POKE831,70:POKE832,10:POKE833,2
2026 POKE834,16:POKE835,46:POKE836,7:SYS52900:RETURN
2034 POKE54290,0
2035 POKE828,1:POKE829,17:POKE830,12:POKE831,20:POKE832,6:POKE833,1
2036 POKE834,7:POKE835,76:POKE836,37:SYS52900:SYS52900:RETURN
2045 POKE828,1:POKE829,17:POKE830,89:POKE831,12:POKE832,6:POKE833,1
2046 POKE834,5:POKE835,176:POKE836,17:SYS52900:SYS52900:RETURN
2047 POKE828,1:POKE829,23:POKE830,11:POKE831,32:POKE832,16:POKE833,1
2048 POKE834,10:POKE835,76:POKE836,7:SYS52900:RETURN
2050 POKE828,1:POKE829,21:POKE830,12:POKE831,120:POKE832,30:POKE833,1
2051 POKE834,5:POKE835,35:POKE836,20:SYS52900:RETURN
2052 POKE828,1:POKE829,23:POKE830,11:POKE831,32:POKE832,16:POKE833,1
2053 POKE834,10:POKE835,76:POKE836,10:SYS52900:RETURN
2055 POKE828,1:POKE829,33:POKE830,11:POKE831,60:POKE832,30:POKE833,2
2056 POKE834,11:POKE835,22:POKE836,146:SYS52900:RETURN
2060 POKE828,1:POKE829,23:POKE830,11:POKE831,22:POKE832,6:POKE833,1
2061 POKE834,11:POKE835,76:POKE836,4:SYS52900:RETURN
2065 POKE828,1:POKE829,23:POKE830,11:POKE831,60:POKE832,30:POKE833,1
2066 POKE834,5:POKE835,59:POKE836,16:SYS52900:RETURN
2074 SI=54272:POKESI+24,15:POKESI+3,5:POKESI+10,5:POKESI+11,0:POKESI+4,0
2075 POKESI+18,0:POKESI+5,13:POKESI+13,0:POKESI+12,12
2076 POKESI+11,65:POKESI+8,2:POKESI+4,65:POKESI+1,2
2077 FORN=1TO6:FORI=150TO200STEP2:POKESI,I:POKESI+7,I+4:NEXTI
2078 FORB=200TO150STEP-2:POKESI,B:POKESI+7,B+4:NEXTB:NEXT:RETURN
2090 POKE828,10:POKE828,1:POKE829,17:POKE830,15:POKE831,20:POKE832,10:POKE833,1
2091 POKE834,23:POKE835,50:POKE836,16:SYS52900:RETURN
2100 POKE53265,65:X=23:Y=4:GOSUB9999:PRINT"[158]ARBEITER : 0000 "
2101 PRINTTAB(19)"[158]FACHARBEITER : 0000 "
2102 PRINTTAB(19)"[158]   OELFELDER : 00   "
2103 PRINTTAB(18)"[158]TABAKFABRIKEN : 00   "
2104 PRINTTAB(17)"[158]TABAKPLANTAGEN : 00  "
2105 X=16:Y=9:GOSUB9999:PRINT"[158]DATTELPLANTAGEN : 00   "
2106 X=16:Y=10:GOSUB9999:PRINT"                      "
2107 PRINTTAB(17)"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]"
2108 PRINTTAB(16)"[144][200][146]                     [199][146]"
2109 PRINTTAB(16)"[200][146][159]WIRTSCHAFTSKRITERIEN:[144][199][146]"
2110 PRINTTAB(16)"[144][200][146]                     [199][146]"
2111 PRINTTAB(16)"[200][146]*[158]1 OELFELD : 10 ARB. [144][199][146]"
2112 PRINTTAB(16)"[200][146] UND 10 FACHARBEITER [144][199][146]"
2113 PRINTTAB(16)"[200][146]*[158]DATTELPLA.: 40 ARB. [144][199][146]"
2114 PRINTTAB(16)"[200][146]*[158]TABAKPLAN.: 25 ARB. [144][199][146]"
2115 PRINTTAB(16)"[200][146]*[158]TABAKFABRIK BRAUCHT:[144][199][146]"
2116 PRINTTAB(16)"[200][146] 10 FACHARBEITER     [144][199][146]"
2117 PRINTTAB(16)"[200][146] 20 ARBEITER         [144][199][146]"
2118 PRINTTAB(16)"[200][146] 4   TABAKPLANTAGEN  [144][199][146]"
2119 PRINTTAB(16)"[144][200][146]                     [199][146]"
2120 PRINTTAB(17)"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]";
2121 X=0:Y=15:GOSUB9999:PRINT"[158] _ [144]ARBEITER     "
2122 PRINT"[158]   EINSTELLEN   "
2123 PRINT"[158] # [144]FACHARBEITER "
2124 PRINT"[158]   EINSTELLEN   "
2125 PRINT"[158] ^ [144]ARBEITER     "
2126 PRINT"[158]   ENTLASSEN    "
2127 PRINT"[158] \ [144]FACHARBEITER "
2128 PRINT"[158]   ENTLASSEN    "
2130 X=34:Y=6:IFOL(A)>9THENX=33
2131 GOSUB9999:PRINT""OL(A)""
2135 X=34:Y=7:IFTA(A)>9THENX=33
2136 GOSUB9999:PRINT""TA(A)""
2140 X=34:Y=8:IFTP(A)>9THENX=33
2141 GOSUB9999:PRINT""TP(A)""
2145 X=34:Y=9:IFDP(A)>9THENX=33
2146 GOSUB9999:PRINT""DP(A)""
2160 FORI=274TO394STEP40:B=PEEK(I+49152):IFB=32THENPOKE49152+I,48:POKE55296+I,1
2161 NEXT:X=2:Y=23:GOSUB9999:PRINT"              ";
2190 POKE53265,65:FORI=193TO197:POKE55296+I,1:NEXT
2191 FORI=233TO237:POKE55296+I,1:NEXT
2200 X=34:Y=4:GOSUB9999:PRINT"0000";:X=36:Z=196:POKE53265,65
2201 IFAR(A)>9THENX=35:Z=195
2202 IFAR(A)>99THENX=34:Z=194
2203 IFAR(A)>999THENX=33:Y=4:GOSUB9999:PRINT""AR(A)"";::GOTO2209
2205 Y=4:GOSUB9999:PRINT""AR(A)"";:POKE49152+Z,48:POKE55296+Z,1
2209 X=34:Y=5:GOSUB9999:PRINT"0000";:X=36:Z=236
2211 IFFA(A)>9THENX=35:Z=235
2212 IFFA(A)>99THENX=34:Z=234
2213 IFFA(A)>999THENX=33:Y=5:GOSUB9999:PRINT""FA(A)"";::GOTO2216
2215 Y=5:GOSUB9999:PRINT""FA(A)"";:POKE49152+Z,48:POKE55296+Z,1
2216 X=6:Y=13:GOSUB9999:PRINT"IHRE FIRMA"
2217 C=OL(A)*20:C=C+TA(A)*20:C=C+TP(A)*25:C=C+DP(A)*40:D=OL(A)*10:D=D+TA(A)*10
2218 IFC>AR(A)THENFORI=193TO197:POKE55296+I,0:NEXT
2219 IFD>FA(A)THENFORI=233TO237:POKE55296+I,0:NEXT
2220 J=PEEK(56320):POKE53265,155:POKE834,1
2221 IFJ=123THEN2240
2222 IFJ=125THEN2340
2223 IFJ=119THEN2440
2224 IFJ=126THEN2540
2225 IFJ=111THEN3000
2226 GOTO2220
2230 X=6:Y=13:GOSUB9999:PRINT"   0000   ":POKEV+16,0:RETURN
2240 GOSUB2230:X=0:Y=15:GOSUB9999:PRINT"[144]*";
2242 Q=120:POKEV,Q:POKEV+1,148
2249 Z=1:L=532:M=47
2250 J=PEEK(56320)
2251 IFJ=123THEN2260
2252 IFJ=119THEN2270
2253 IFJ=126THEN2280
2254 IFJ=125THEN2290
2255 IFJ=111THEN2300
2256 GOTO2250
2260 Z=Z*10:Q=Q-8:L=L-1:IFQ=88THENQ=96:Z=Z/10:L=L+1:GOTO2250
2261 GOSUB2015:POKEV,Q:GOTO2250
2270 L=L+1:Z=Z/10:Q=Q+8:IFQ=128THENQ=120:Z=Z*10:L=L-1:GOTO2250
2271 GOSUB2015:POKEV,Q:GOTO2250
2280 M=M+1:IFM>57THENM=48
2281 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2250
2290 M=M-1:IFM<48THENM=57
2291 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2250
2300 GOSUB2700
2301 IFZ+AR(A)<=9999THEN2304
2302 GOSUB2025:X=2:Y=24:GOSUB9999:PRINT"GEHT NICHT !";
2303 FORL=1TO1600:NEXT:POKE49152+600,32:GOTO2305
2304 AR(A)=AR(A)+Z:POKEV,0:POKEV+1,0:POKE49152+600,32
2305 X=2:Y=24:GOSUB9999:PRINT"            ";:POKEV+1,0:POKEV,0:GOTO2190
2340 GOSUB2230:X=0:Y=17:GOSUB9999:PRINT"[144]*";
2342 Q=120:POKEV,Q:POKEV+1,148
2349 Z=1:L=532:M=47
2350 J=PEEK(56320)
2351 IFJ=123THEN2360
2352 IFJ=119THEN2370
2353 IFJ=126THEN2380
2354 IFJ=125THEN2390
2355 IFJ=111THEN2400
2356 GOTO2350
2360 Z=Z*10:Q=Q-8:L=L-1:IFQ=88THENQ=96:Z=Z/10:L=L+1:GOTO2350
2361 GOSUB2015:POKEV,Q:GOTO2350
2370 L=L+1:Z=Z/10:Q=Q+8:IFQ=128THENQ=120:Z=Z*10:L=L-1:GOTO2350
2371 GOSUB2015:POKEV,Q:GOTO2350
2380 M=M+1:IFM>57THENM=48
2381 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2350
2390 M=M-1:IFM<48THENM=57
2391 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2350
2400 GOSUB2700
2401 IFZ+FA(A)<=9999THEN2404
2402 GOSUB2025:X=2:Y=24:GOSUB9999:PRINT"GEHT NICHT !";
2403 FORL=1TO1600:NEXT:POKE49152+680,32:GOTO2405
2404 FA(A)=FA(A)+Z:POKEV,0:POKEV+1,0:POKE49152+680,32
2405 X=2:Y=24:GOSUB9999:PRINT"            ";:POKEV+1,0:POKEV,0:GOTO2190
2440 GOSUB2230:X=0:Y=19:GOSUB9999:PRINT"[144]*";
2442 Q=120:POKEV,Q:POKEV+1,148
2449 Z=1:L=532:M=47
2450 J=PEEK(56320)
2451 IFJ=123THEN2460
2452 IFJ=119THEN2470
2453 IFJ=126THEN2480
2454 IFJ=125THEN2490
2455 IFJ=111THEN2500
2456 GOTO2450
2460 Z=Z*10:Q=Q-8:L=L-1:IFQ=88THENQ=96:Z=Z/10:L=L+1:GOTO2450
2461 GOSUB2015:POKEV,Q:GOTO2450
2470 L=L+1:Z=Z/10:Q=Q+8:IFQ=128THENQ=120:Z=Z*10:L=L-1:GOTO2450
2471 GOSUB2015:POKEV,Q:GOTO2450
2480 M=M+1:IFM>57THENM=48
2481 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2450
2490 M=M-1:IFM<48THENM=57
2491 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2450
2500 GOSUB2700
2501 IFAR(A)-Z>=0THEN2504
2502 GOSUB2025:X=2:Y=24:GOSUB9999:PRINT"GEHT NICHT !";
2503 FORL=1TO1600:NEXT:POKE49152+760,32:GOTO2505
2504 AR(A)=AR(A)-Z:POKEV,0:POKEV+1,0:POKE49152+760,32
2505 X=2:Y=24:GOSUB9999:PRINT"            ";:POKEV+1,0:POKEV,0:GOTO2200
2540 GOSUB2230:X=0:Y=21:GOSUB9999:PRINT"[144]*";
2542 Q=120:POKEV,Q:POKEV+1,148
2549 Z=1:L=532:M=47
2550 J=PEEK(56320)
2551 IFJ=123THEN2560
2552 IFJ=119THEN2570
2553 IFJ=126THEN2580
2554 IFJ=125THEN2590
2555 IFJ=111THEN2600
2556 GOTO2550
2560 Z=Z*10:Q=Q-8:L=L-1:IFQ=88THENQ=96:Z=Z/10:L=L+1:GOTO2550
2561 GOSUB2015:POKEV,Q:GOTO2550
2570 L=L+1:Z=Z/10:Q=Q+8:IFQ=128THENQ=120:Z=Z*10:L=L-1:GOTO2550
2571 GOSUB2015:POKEV,Q:GOTO2550
2580 M=M+1:IFM>57THENM=48
2581 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2550
2590 M=M-1:IFM<48THENM=57
2591 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO2550
2600 GOSUB2700
2601 IFFA(A)-Z>=0THEN2604
2602 GOSUB2025:X=2:Y=24:GOSUB9999:PRINT"GEHT NICHT !";
2603 FORL=1TO1600:NEXT:POKE49152+840,32:GOTO2605
2604 FA(A)=FA(A)-Z:POKEV,0:POKEV+1,0:POKE49152+840,32
2605 X=2:Y=24:GOSUB9999:PRINT"            ";:POKEV+1,0:POKEV,0:GOTO2200
2700 Z=0:T=.1:FORK=0TO3:B=PEEK(49684-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT:RETURN
3000 V=53248
3001 FORI=2TO7:POKEV+I,0:NEXT:POKEV+16,0
3002 POKE53265,65:PRINT"[147]";:POKE53283,9:POKE53281,8:GOSUB7000
3005 PRINT""
3006 PRINTSPC(3)"[153][193][194]
3007 [153][166]3)"PRINTLENSTR$ SYSDATTELPLANTAGE ANLEGEN : $"MU(A)[172]3000""
3008 [153][163]3)"PRINTRIGHT$RIGHT$
3009 PRINTTAB(3)"[153][203][204] [158]TABAKPLANTAGE ANLEGEN  : $"MU(A)*4000"
3010 [153][166]3)"(null)(null)
3011 PRINTSPC(3)"[129][207][208] [158]TABAKFABRIK ANLEGEN    : $"MU(A)*20000"
3012 [153][166]3)"STOPVALASC
3013 PRINTSPC(3)"[144][199][200] [158]NACH OEL BOHREN        : $"MU(A)*15000""
3014 PRINTSPC(3)"[144][213][214]
3015 [153][166]3)"(null)(null) SYSGIFT VERSPRUEHEN       : $"MU(A)[172]8000""
3016 [153][166]3)"STOP09WAIT
3017 PRINTSPC(3)"[217][218] [158]RAKETENSALVE AUF GEGNER: $ 35000
3019 [153][166]3)"PRINTCOS> SYSLAND RODEN             : $"MU(A)[172]2000""
3020 [153][166]3)"VERIFY12WAIT
3021 PRINTSPC(3)"34[146] [158]LAND BETRACHTEN
3022 [153][166]3)"LIST56WAIT
3023 PRINTSPC(3)"78[146] [158]IHR VERMOEGEN BETRAEGT : $"GE(A)"";:X=3:Y=22:GOSUB9999
3024 PRINT"[158]MIT DEM JOYSTICK _ [158]GEHT ES WEITER"
3025 X=31:Y=3:GOSUB9999:PRINT"[144]*[159]KOSTEN[144]*":GOSUB978
3026 X=6:Y=3:GOSUB9999:PRINT"[158]SCHULDENLIMIT $"JI"";
3028 V=53248:POKEV,33:Y=73:POKEV+1,Y:Z=1:POKE50168,21:POKE53265,155
3030 J=PEEK(56320)
3031 IFJ=125THEN3040
3032 IFJ=126THEN3050
3033 IFJ=111THEN3100
3034 IFJ=123THEN3800
3036 GOTO3030
3040 Z=Z+1:IFZ=9THENZ=1:Y=73:POKEV+1,Y:GOTO3030
3041 GOSUB2015:Y=Y+16:POKEV+1,Y:GOTO3030
3050 Z=Z-1:IFZ=0THENZ=8:Y=185:POKEV+1,Y:GOTO3030
3051 GOSUB2015:Y=Y-16:POKEV+1,Y:GOTO3030
3100 IFZ<>6THEN4000
3101 FORK=16TO19:X=3:Y=K:GOSUB9999:PRINT"                          ";:NEXT
3104 X=4:Y=16:GOSUB9999:PRINT"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][146]"
3105 X=3:Y=17:GOSUB9999:PRINT"[200][146]                [199][146]"
3106 X=4:Y=18:GOSUB9999:PRINT"[144][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][146]":POKEV+1,172:POKEV,59
3107 X=6:Y=19:GOSUB9999:PRINT"[158]WAEHLEN SIE":Z=A
3110 X=6:Y=17:GOSUB9999:PRINT"[159]"N$(Z)"";
3120 J=PEEK(56320)
3121 IFJ=119THEN3125
3122 IFJ=111THEN9000
3123 GOTO3120
3125 GOSUB2047:Z=Z+1:IFZ+1>PLTHENZ=0
3126 X=6:Y=17:GOSUB9999:PRINT"           ":GOTO3110
3800 IFIN(A)=10THEN3810
3801 G=INT(RND(1)*1000):IFG<900THEN5000
3802 F=INT(RND(1)*240):KI(A)=1:KA(A)=F:F=F+1024:G=PEEK(F+(250*A)):IN(A)=10
3803 IFG=69ORG=77THEN3802
3804 POKEF+(250*A),81:GOTO3901
3810 REM AUSBREITUNG
3811 KI(A)=KI(A)+1:G=INT(RND(1)*1000)+1
3812 IFG<250THENKA(A)=KA(A)+1:GOTO3819
3813 IFG<500THENKA(A)=KA(A)-1:GOTO3819
3814 IFG<750THENKA(A)=KA(A)+20:GOTO3819
3815 IFG<1000THENKA(A)=KA(A)-20:GOTO3819
3819 IFKA(A)<1ORKA(A)>220THENKI(A)=KI(A)-1:GOTO3811
3820 B=1024+(250*A):G=PEEK(KA(A)+B)
3821 IFG=65THENDP(A)=DP(A)-1
3822 IFG=73THENTP(A)=TP(A)-1
3823 IFG=81THENKI(A)=KI(A)-1
3824 IFG=69ORG=77THENKI(A)=KI(A)-1:GOTO3811
3825 POKEB+KA(A),81
3901 PRINT"[147]":POKE53281,11:POKE53269,0:POKE53265,65
3902 X=9:Y=10:GOSUB9999:PRINT"IHR LAND WIRD VON EINER
3903 [153][163]6)"INSEKTENPLAGE HEIMGESUCHT !!!";
3904 [129]K[178]1[164]7:[153]"STOP                                        WAIT";:[130]
3905 X[178]0:Y[178]16:[141]9999:[129]L[178]1[164]8
3906 [153]"STOP                                        WAIT";:[130]
3907 [153]"                                       WAIT";:[151]50151,160
3910 [151]56295,0:[151]53265,155
3911 J[178][194](56320):[139]J[178]111[167]5000
3912 [137]3911
4000 [151]2023,1[170]A:[141]4001:[137]4028
4001 [151]53265,65:[153]"LOADPRINT";:[151]53281,7:[151]53269,2:[151]53282,0:[151]53283,9
4002 [153]">SIN*+TAB(   ^ABS+LOG*ABS= TAB( DEKSFGHIWAITPRINT      TAB(+POSLOGSIN>ORSIN";
4003 [153]">LOGSINRNDTAB( TAB( ORSINLOG>SIN*TAB( TAB(+ABS=EXPABS Y  WPRINTWAIT   TAB(ABS+POSAND+LOG>ORSIN";
4004 [153]"SIN>LOGFRE= ANDLOG>*POS+LOGFRE+FREAND+POS>SIN*SINZ  XPRINTWAIT THENTAB(POS/ABSTAB(+POSSINOR>>";
4005 [153]"/COSABSFRE^AND  /COSPOS^+ANDABSTAB(POS+ORSIN>*+ DEFMPRINTWAIT TAB( ^LOG+POSLOGSIN>>*";
4006 [153]"ANDTAB( TAB(   =TAB( TAB(ANDABSAND-TAB(+POSCOSLOGSIN>SIN*  N WPRINTWAIT= TAB(AND+POSEXPFREPOS>*";
4007 [153]"EXPPOSFRE  =AND  ^LOGPOS+=NEW+ABSPOSAND+>>SIN>SIN Z XPRINTWAIT FNTAB( AND-FRE+POSTAB(POS";
4008 [153]"INTABS<FRETAB(   TAB(<ORFNGET++INT+POSSINSIN>ORSIN>+   WPRINTWAIT  NEWTAB(+POSFRETAB(= TAB(";
4009 [153]"ABSTAB(AND ABS = TAB(POSNEWPOSPOSABSPOSLOGLOGSIN>RND/COS>RND  Y XPRINTWAIT TAB(AND-POSANDTAB( =NEWFRE";
4010 [153]"+POSAND  ANDABS^+POS-FRESGN+POSRND/COS/ABSPOSANDAND   Z WPRINTWAIT TAB(ABSTAB( =  AHBPRINTWAIT";
4011 [153]"EXP+EXPABSAND-TAB( </COSNEW/POSABSTAB(ABSGETAND+POSTAB(     EFGHBHUABC   PRINTWAIT";
4012 [153]"SINLOG>SIN>*ANDTAB( TAB(+POSTAB(^+TAB(^EXPABSFRETAB(AND+=TAB(AND   DEKFJKEF   PRINTWAIT";
4013 [153]">SINSINLOGSINSIN*FRE  TAB(AND AND TAB(<ORSINORSIN*EXPABSFREABS+POSFREPOS       DEFPRINTWAIT";
4014 [153]"+LOG>+POSLOGRNDPOSTAB( = = TAB( ^LOGCOS/LOG>SIN*POSAND -TAB(^ABSTAB( THENANDTAB(
4015 PRINT"[188][177][177][191][188][187][190][170][163]   [165][163]  [182] [163][174][170][191][177][191][177][172][170][185][182][163][184][178][175][163]  [163]
4016 [153]"SIN+>SIN>FRE     TAB(  -TAB(AND+=OR>SIN*SINLOG*+ABSTAB(INTANDTAB(  TAB(ABSPOSFRETAB( ";
4017 [153]">LOG>>SINPOSFRETAB(    ANDINTGETNEW ANDABSEXPLOG>RNDSINSINRND*<RND-ANDPOS+GETTHENTAB( ^+POS";
4018 [153]"ORSIN*LOG>RNDNEWABS  TAB(ANDFRE- AND-TAB(POS+FREORSIN>ORLOG>*ORLOGORSIN*ABS+TAB(POS=LOGCOS";
4019 [153]">SIN*ORSINLOGCOSFREAND GETTHENABS ABSNEW^*>EXPORSIN>>LOG*ORORLOGLOGOR>SIN>+POSFRE-TAB(ABS";
4020 [153]"ORSINLOG*>SINRND   TAB(  TAB(AND=<LOGLOG>RNDLOG*>OR*>ORLOGORLOGOR>RNDSINLOG/COS+ABS";
4021 [153]"EXPSIN/*ORSINPOS=TAB( = ABS+AND->RNDLOGSINOR>LOGORSIN*+ORLOGORLOGOR+POS/+COSRNDABS+";
4022 [153]"^+POSANDLOGORSIN*  TAB(^ABS+ORSINNEWFRESIN>ORLOG>SINSINOR*>ORSINOR>/ABS+NEWTAB(+FRETAB(";
4023 [153]"ABSAND-FREANDORSIN>*POS=FREORLOG>RNDTHENSGNPOSAND>*>>OR*LOGRNDABSFRE<ORRNDABSFRETAB(GETTAB( ^";
4024 [153]"EXP+POSEXPLOGORSIN>LOG>+EXP+ORSINLOGPOSABSNEW^ORSIN+ANDTHENFNINTGETABSTHENABS^ANDTAB(-POSFRETAB(  ";
4025 [153]"ORSINLOGLOG>SINLOG*ORSIN>LOGLOGOR*>ANDORSIN>POS+AND-TAB(ANDSGNTAB( ABSTAB(<FRETAB( ^ANDTAB(  ";
4026 [153]"STOP                                       WAIT";:[151]49152[170]999,160
4027 [151]55296[170]999,0:[158]34816:[151]53265,155:[142]
4028 [139]Z[179][177]8[167]4032
4029 J[178][194](56320):[139]J[178]111[167]4129
4030 [137]4029
4032 [151]V[170]40,0:[151]50169,23:X[178]16:Y[178]45:[151]V[170]2,X:[151]V[170]3,Y:C[178]1024[170](250[172]A):D[178]1
4040 J[178][194](56320)
4041 [139]J[178]119[167]4050
4042 [139]J[178]123[167]4070
4043 [139]J[178]125[167]4090
4044 [139]J[178]126[167]4110
4045 [139]J[178]111[167]4159
4046 [139]J[178]122[167]4129
4047 K[178][194](197)
4048 [139]K[178]4[167]4129
4049 [137]4040
4050 X[178]X[170]16:[139]X[178]256[167][151]V[170]16,2:[151]V[170]2,1:X[178]1:C[178]C[170]1:D[178]D[170]2:[137]4150
4051 [139]X[178]81[167]X[178]65:[137]4150
4052 C[178]C[170]1:D[178]D[170]2:[151]V[170]2,X:[137]4150
4070 X[178]X[171]16:[139]X[178]0[167]X[178]16:[137]4150
4071 [139]X[178][171]15[167]X[178]240:[151]V[170]16,0:[151]V[170]2,240:C[178]C[171]1:D[178]D[171]2:[137]4150
4073 C[178]C[171]1:D[178]D[171]2:[151]V[170]2,X:[137]4150
4090 Y[178]Y[170]16:[139]Y[178]237[167]Y[178]221:[137]4150
4091 C[178]C[170]20:D[178]D[170]80:[151]V[170]3,Y:[137]4150
4110 Y[178]Y[171]16:[139]Y[178]29[167]Y[178]45:[137]4150
4111 C[178]C[171]20:D[178]D[171]80:[151]V[170]3,Y:[137]4150
4120 [151]828,10:[151]834,1:[139]Z[178]1[167][151]C,65:GE(A)[178]GE(A)[171]3000:DP(A)[178]DP(A)[170]1
4121 [139]Z[178]2[167][151]C,73:GE(A)[178]GE(A)[171](4000[172]MU(A)):TP(A)[178]TP(A)[170]1
4122 [139]Z[178]3[167][151]C,77:GE(A)[178]GE(A)[171](20000[172]MU(A)):TA(A)[178]TA(A)[170]1
4123 [139]Z[178]4[167]GE(A)[178]GE(A)[171](15000[172]MU(A)):[137]4200
4124 [139]Z[178]5[167]GE(A)[178]GE(A)[171](7500[172]MU(A)):[141]4320:D[178][194](C):[139]D[178]81[167]4300
4125 [139]Z[178]7[167]8900
4126 [158]34816:[139]Z[179][177]5[167][141]2035
4127 [129]I[178]24[164]28:[151]50169,I:[129]K[178]1[164]30:[130]:[130]:[129]I[178]28[164]23[169][171]1
4128 [151]50169,I:[129]K[178]1[164]20:[130]:[130]:[137]4040
4129 [151]53265,65:[151]V[170]21,255:[137]3000
4150 [141]2045:[137]4040
4159 [139]Z[178]7[176]Z[178]5[167]4181
4160 H[178]D:H[178]H[170]49152:H[178]H[171]1
4161 B[178][194](H):[139]B[179][177]32[176]B[177]128[167]4170
4162 H[178]H[170]1:B[178][194](H):[139]B[179][177]32[176]B[177]128[167]4170
4163 H[178]H[170]39:B[178][194](H):[139]B[179][177]32[176]B[177]128[167]4170
4164 H[178]H[170]1:B[178][194](H):[139]B[179][177]32[176]B[177]128[167]4170
4165 [137]4120
4170 [151]V[170]9,123:[151]V[170]11,123:[151]V[170]13,123:[151]V[170]15,123:[151]V[170]21,240
4171 X[178]8:Y[178]9:[141]9999:[153]"                        "
4172 X[178]8:Y[178]10:[141]9999:[153]" DAS IST NICHT MOEGLICH "
4173 X[178]8:Y[178]11:[141]9999:[153]"                        "
4174 [141]2055:[129]I[178]1[164]750:[130]:[141]2065:[129]I[178]1[164]2000:[130]
4175 [151]53265,65:[151]V[170]9,50:[151]V[170]11,50:[151]V[170]13,50:[151]V[170]15,50
4180 [137]4129
4181 H[178]D:H[178]H[170]49152:H[178]H[171]1
4182 B[178][194](H):[139]B[177]128[167]4170
4183 H[178]H[170]1:B[178][194](H):[139]B[177]128[167]4170
4184 H[178]H[170]39:B[178][194](H):[139]B[177]128[167]4170
4185 H[178]H[170]1:B[178][194](H):[139]B[177]128[167]4170
4186 [137]4120
4200 [143] PROBEBOHRUNG
4201 [151]828,10:[141]2074:B[178][181]([187](1)[172]50)[170]1:B[178]B[170][181]([187](1)[172]50)[170]1
4202 [139]B[177]50[167][151]C,69:OL(A)[178]OL(A)[170]1:[137]4126
4203 [153]"LOAD":[151]53281,0:[151]53269,0
4204 X[178]3:Y[178]11:[141]9999:[153]"SIE HABEN LEIDER KEIN OEL GEFUNDEN !!"
4205 SI[178]54272:[151]SI[170]24,15:[151]SI[170]5,11:[151]SI[170]12,11
4206 [151]SI[170]4,0:[151]SI[170]15,40:[151]SI[170]4,21:[129]K[178]1[164]17
4207 B[178][181]([187](1)[172]180)[170]10:[129]I[178]B[164]B[170]40[169]2:[151]SI[170]1,I:[130]:[130]K:[137]4129
4300 [143] GIFT VERSPRUEHEN
4301 [151]C,32:[158]34816:KI(A)[178]KI(A)[171]1
4302 [129]I[178]24[164]28:[151]50169,I:[129]K[178]1[164]100:[130]:[130]:[129]I[178]28[164]23[169][171]1
4303 [151]50169,I:[129]K[178]1[164]80:[130]:[130]:[129]I[178]1[164]250:[130]:[139]KI(A)[177]0[167]4040
4305 [151]V[170]9,123:[151]V[170]11,123:[151]V[170]13,123:[151]V[170]15,123:[151]V[170]21,240
4306 X[178]8:Y[178]9:[141]9999:[153]"                        ":IN(A)[178]0
4307 X[178]8:Y[178]10:[141]9999:[153]" INSEKTEN AUSGEROTTET ! "
4308 X[178]8:Y[178]11:[141]9999:[153]"                        "
4309 [141]2055:[129]I[178]1[164]750:[130]:[141]2065:[129]I[178]1[164]2000:[130]
4310 [151]53265,65:[151]V[170]9,50:[151]V[170]11,50:[151]V[170]13,50:[151]V[170]15,50
4311 [137]4129
4320 SI[178]54272:[151]SI[170]24,15:[151]SI[170]6,0:[151]SI[170]5,154:[151]SI[170]4,0:[151]SI[170]1,200
4321 [151]SI[170]4,129:[142]
5000 [151]53265,65:[153]"LOAD":[151]53281,8:[151]53269,255:[141]7000
5005 B[178]TP(A):B[178]B[172]450:C[178]DP(A):C[178]C[172]400:D[178]B:D[178]D[170]C:N[178]RE(A):N[178]N[172]100
5006 BW(A)[178][181]([187](1)[172]N)[170]D
5009 [153]"  STOP* OPENBEWAESSERUNG STOP*":[153][163]24)"(null)"
5010 [153]"SYS  BENOETIGTES WASSER IN (null) : 00000
5011 PRINT" [158] WASSERVORRAT BETRAEGT   : 00000
5012 [153]"SYS  WIEVIEL WASSER VERTEILEN ? : 00000
5013 FORI=1TO12:PRINT"[144]                                        [146]";:NEXT
5014 PRINT"[144]                                       [146]";:POKE50151,160:POKE56295,0
5049 X=31:Z=231
5050 IFBW(A)>9THENX=30:Z=230
5051 IFBW(A)>99THENX=29:Z=229
5052 IFBW(A)>999THENX=28:Z=228
5053 IFBW(A)>9999THENX=27:Y=5:GOSUB9999:PRINT""BW(A)"";:GOTO5059
5054 Y=5:GOSUB9999:PRINT""BW(A)"";:POKE49152+Z,48:POKE55296+Z,1
5059 X=31:Z=271
5060 IFWA1(A)>9THENX=30:Z=270
5061 IFWA1(A)>99THENX=29:Z=269
5062 IFWA1(A)>999THENX=28:Z=268
5063 IFWA1(A)>9999THENX=27:Y=6:GOSUB9999:PRINT""WA1(A)"";:GOTO5208
5064 Y=6:GOSUB9999:PRINT""WA1(A)"";:POKE49152+Z,48:POKE55296+Z,1
5208 Z=1:L=355:M=47:V=53248:POKEV+16,1:POKEV+1,108:POKE50168,18:Q=48:POKEV,48
5209 POKE53265,155
5210 J=PEEK(56320)
5211 IFJ=123THEN5220
5212 IFJ=119THEN5230
5213 IFJ=126THEN5240
5214 IFJ=125THEN5250
5215 IFJ=111THEN5260
5216 GOTO5210
5220 Z=Z*10:Q=Q-8:L=L-1:IFQ=8THENQ=16:Z=Z/10:L=L+1:GOTO5210
5221 GOSUB2015:POKEV,Q:GOTO5210
5230 L=L+1:Z=Z/10:Q=Q+8:IFQ=56THENQ=48:Z=Z*10:L=L-1:GOTO5210
5231 GOSUB2015:POKEV,Q:GOTO5210
5240 M=M+1:IFM>57THENM=48
5241 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO5210
5250 M=M-1:IFM<48THENM=57
5251 GOSUB2020:POKE49152+L,M:POKE55296+L,1:GOTO5210
5260 Z=0:T=.1:FORK=0TO4:B=PEEK(49507-K):B=B-48:T=T*10:B=B*T:Z=Z+B:NEXT
5261 IFZ<=WA1(A)THEN5264
5262 GOSUB2025:X=2:Y=10:GOSUB9999:PRINT"    DAS IST UNMOEGLICH !    "
5263 FORL=1TO1600:NEXT:GOTO5265
5264 B=Z:WA1(A)=WA1(A)-Z:POKEV,0:POKEV+1,0:GOTO5300
5265 X=3:Y=10:GOSUB9999:PRINT"                       "
5266 X=31:Y=8:GOSUB9999:PRINT"00000":GOTO5208
5300 PRINT"[147]":POKE53269,0:GOSUB2090:X=3:Y=1:GOSUB9999:GOSUB2090
5301 FORI=1TO38:PRINTMID$("[144]** [159]DIE ERNTE UND DIE WIRTSCHAFT [144]**",I,1);
5302 FORK=1TO19:NEXTK,I
5303 X=11:Y=3:GOSUB9999:FORI=1TO18:PRINTMID$("[159]FUER DIESEN MONAT",I,1);
5304 FORK=1TO20:NEXTK,I
5305 X=0:Y=4:GOSUB9999:ZZ(A)=0
5306 PRINT"****************************************";
5307 FORI=160TO200STEP2:POKE55296+I,7:POKE55296+I+1,0:NEXT
5310 P=0:P=P+OL(A)*20:P=P+TA(A)*20:P=P+TP(A)*25:P=P+DP(A)*40
5311 Q=0:Q=Q+OL(A)*10:Q=Q+TA(A)*10
5312 IFP<=AR(A)THENA$="[158]SIE HATTEN GENUG ARBEITER":GOTO5314
5313 L=P:L=L-AR(A):A$=""
5314 IFQ=<FA(A)THENB$="[158]SIE HATTEN GENUG FACHARBEITER":GOTO5316
5315 M=Q:M=M-FA(A):B$=""
5316 IFB$<>""THENX=4:Y=6:GOSUB9999:PRINTB$:GOTO5318
5317 X=4:Y=6:GOSUB9999:PRINT"[158]IHNEN FEHLTEN"M"[158]FACHARBEITER"
5318 IFA$<>""THENX=4:Y=7:GOSUB9999:PRINTA$:GOTO5320
5319 X=4:Y=7:GOSUB9999:PRINT"[158]IHNEN FEHLTEN"L"[158]ARBEITER"
5320 B=Z:B=B*100:B=B/BW(A):C=INT(B):Q=Q*2:E=1:E=E+Q+P:Z=AR(A):Z=Z+FA(A)
5321 PRINT"[158] IHRE FELDER WURDEN ZU"C"%[158] BEWAESSERT"
5322 PRINT" DAS IHNEN ZUR VERFUEGUNG GESTANDENE":F=Z:F=F*100:F=F/E:H=INT(F)
5323 PRINT" POTENTIAL AN ARBEITER UND FACHARBEITER":IFH>100THENH=100
5324 PRINT" ERMOEGLICHTE EINE AUSBEUTE VON"H"%
5328 ZA[178](2[172]C)[170](H[172]4):ZA[178]ZA[173]3
5330 DA[178][181]([187](1)[172]350)[170]1:L[178]DA[172]ZA:L[178]L[173]100:R[178]DA[171]L:DA[178]DA[171]R:[139]DA[179]1[167]DA[178]0
5331 DA[178]DA[172]DP(A):DA[178][181](DA):DA1(A)[178]DA1(A)[170]DA
5340 TL[178][181]([187](1)[172]250)[170]1:L[178]TL[172]ZA:L[178]L[173]100:R[178]TL[171]L:TL[178]TL[171]R:[139]TL[179]1[167]TL[178]0
5341 TL[178]TL[172]TP(A):TL[178][181](TL):OP[178]TA(A)
5342 K[178]TA(A)[172]4:[139]K[177]TP(A)[167]OP[178]TP(A)[173]4
5343 [139]TP(A)[178]0[167]5359
5345 D[178]OP[173]TP(A):D[178]D[172]4:TL[178]TL[172]D:TL[178][181](TL)
5346 ZI1(A)[178]ZI1(A)[170]TL
5359 KL[178]H:KL[178]KL[172]2
5360 OL[178][181]([187](1)[172]150)[170]1:L[178]OL[172]KL:L[178]L[173]100:R[178]OL[171]L:OL[178]OL[171]R:[139]OL[179]1[167]OL[178]0
5361 OL[178]OL[172]OL(A):OL[178][181](OL):OE1(A)[178]OE1(A)[170]OL
5400 M1[178][181]([187](1)[172]10)[170]5:N1[178]M1[172]AR(A)
5401 M2[178][181]([187](1)[172]40)[170]20:N2[178]M2[172]FA(A)
5500 [153]"OPEN DER WIRTSCHATFSBERICHT :
5501 PRINT"  [158]SIE ERNTETEN DATTELOBST :"DA"T
5502 [153]" SYSSIE ERZEUGTEN ZIGARETTEN :"TL"STN.
5503 PRINT"    [158]SIE FOERDERTEN ERDOEL :"OL"BAR.
5504 [153]"OPEN DIE GEHAELTER :
5506 PRINT"[158]       ARBEITER :$"M1""
5507 PRINT"[158]   FACHARBEITER :$"M2"";
5508 X=22:Y=23:GOSUB9999:PRINT"'"AR(A)""
5509 X=22:Y=24:GOSUB9999:PRINT"'"FA(A)"";
5510 X=29:Y=23:GOSUB9999:PRINT"= $"N1""
5511 X=29:Y=24:GOSUB9999:PRINT"= $"N2"";:GE(A)=GE(A)-(N1+N2)
5520 J=PEEK(56320):IFJ=111THEN949
5521 GOTO5520
7000 POKEV+9,50:PRINT"[144]        [146]                                [146]";
7001 IFMO(A)=13THENMO(A)=1:JA(A)=JA(A)+1
7002 POKEV+8,89:POKEV+43,10:POKE50172,22:RESTORE:B=0
7003 B=B+1:READA$:IFB=MO(A)THENREADJ$:GOTO7005
7004 GOTO7003
7005 PRINTSPC(9)""N$(A)""
7006 X=18:Y=1:GOSUB9999:PRINT""J$"";:X=26:Y=1:GOSUB9999:PRINT""JA(A)"":RETURN
8900 B=PEEK(C):IFB=65ORC=73ORC=77ORC=81THEN4170
8901 POKEC,32:GE(A)=GE(A)-(2000*MU(A)):GOTO4126
9000 PRINT"[147][153]":POKE53281,3:POKE53282,0:POKE53283,8:PRINTCHR$(14):POKE53269,0
9001 B=1:POKE53264,0:GE(A)=GE(A)-35000
9002 B=B+1:IFB=2THENLOAD"ROC*",8,1
9006 PRINT"                                  DF":POKE54296,0
9007 PRINT"                           DEFAF A[194][195]ABC
9008 [153]"                ASTR$VALF  AEFDEASCH(null)VATNPEEKLENSTR$VALASCW(null)D";
9009 [153]"              DASCATNVALASC(null)DFGHRIGHT$CHR$W(null)ATNPEEKLENCHR$V(null)(null)VRIGHT$ATNASCCHR$";
9010 [153]"-EXPUSR  USRAND AND-=<EXPPRINTDPEEKASC(null)WRIGHT$ATNLENSTR$PEEKASCATNVALASCASC(null)WRIGHT$ATNASCVPEEKLENATNLENCHR$H";
9011 [153]"           APEEKLENVSTR$PEEKASCSTR$VALASCCHR$VRIGHT$(null)VRIGHT$PEEKLENATNPEEKLENSTR$VALASC(null)VATNVALASC";
9012 [153]"BC    STOPPOS  PRINTDEASCSTR$VALASC(null)V(null)GVSTR$VALASCATNVALASCVALASCRIGHT$STR$VALASCCHR$H(null)ATNVALASCWP";
9013 [153]"STR$VALF  STOPGET+  PRINTGHRIGHT$QVPATNPEEKASCVRIGHT$VHPCHR$HIVPV(null)VSTR$VALASCATNPEEKVALCHR$W(null)";
9014 [153]"CHR$HI STOPGETABS   PRINTM(null)(null)(null)V(null)GHRIGHT$CHR$RIGHT$(null)W(null)MID$(null)(null)HRIGHT$STR$VALASCCHR$HRIGHT$(null)WRIGHT$MID$(null)(null)";
9015 [153]"(null)(null)OSTOPRNDFNSGNNEWINT  PRINTT(null)(null)(null)(null)MID$(null)(null)(null)(null)(null)(null)(null)(null)T(null)(null)(null)GWRIGHT$(null)(null)(null)(null)(null)(null)(null)T(null)";
9016 [153]"(null)T VERIFYORSINSINLOG*>LISTD231U(null)(null)T(null)(null)T(null)T3453T(null)MID$(null)(null)(null)T(null)(null)T(null)(null)T(null)";
9017 [153]"45668490989^4561T3234T8871231T36T3123456";
9018 [153]"07__^7_^_0^_807123984568^^_8426456987_70";
9019 [153]"^____^____8__0____7_^__^_8__0_08_07^_0_";:[151]50151,31:[151]56295,7
9020 V[178]53248:[151]V[170]21,31:[151]V[170]4,0:[151]V[170]6,0:[151]V[170]8,0:[151]V[170]28,0
9021 [151]50168,30:[151]V,48:[151]V[170]1,196:[151]V[170]39,0:[151]V[170]23,0:[151]V[170]29,0
9022 [151]50169,31:[151]V[170]2,48:[151]V[170]3,196:[151]V[170]40,11:[151]56325,60
9023 [151]V[170]41,7:[151]V[170]42,2:[151]V[170]43,8
9024 [151]50170,35:[151]50171,34:[151]50172,33
9030 [129]I[178]1[164]2000:[130]
9031 [151]820,0:[158]860:[151]V[170]21,31:[141]9070
9032 [151]50170,34:[151]50171,33:[151]50172,32:[141]9060
9033 [151]50170,33:[151]50171,32:[151]50172,35:[141]9060
9034 [151]50170,32:[151]50171,35:[151]50172,34:[141]9060
9035 [151]50170,35:[151]50171,34:[151]50172,33:[141]9060
9036 B[178][194](820):[139]B[178]1[167]9045
9037 [137]9032
9045 [151]53265,65:[153][199](142):[151]SI[170]22,10:[137]9100
9060 [129]I[178]1[164]10:[130]:J[178]J[171]1:[151]SI[170]22,J:[142]
9070 SI[178]54272:[151]SI[170]23,243:[151]SI[170]24,31:[151]SI[170]22,80:J[178]80
9071 [151]SI[170]5,0:[151]SI[170]4,0:[151]SI[170]11,0:[151]SI[170]18,0:[151]SI[170]12,0
9072 [151]SI[170]6,240:[151]SI[170]13,160:[151]SI[170]4,129:[151]SI[170]11,129
9073 [151]SI[170]1,15:[151]SI[170]8,25:[142]
9100 [151]2023,1[170]Z:[141]4001:G[178]1
9101 X[178][181]([187](1)[172]19)[170]1:Y[178][181]([187](1)[172]11)[170]1:D[178]Y:Y[178]Y[172]16:D[178]D[172]20[170]X
9105 [151]V[170]21,3:[151]V[170]39,0:[151]V[170]40,0:[151]50168,36:[151]50169,37
9106 Y[178]Y[170]45:[151]V[170]1,Y:Y[178]Y[170]8:[151]V[170]3,Y
9107 C[178]0:B[178]X[172]16:E[178]X[172]16[170]16:F[178]0
9108 [151]V,C:[151]V[170]2,F[170]16:C[178]C[170]2:F[178]F[170]2:[139]C[178]238[167][151]V[170]16,2:F[178]238:[137]9120
9109 [139]C[178]E[167]9140
9110 [139]C[177]B[167]Y[178]Y[171]1:[151]V[170]3,Y:F[178]F[171]2
9111 [137]9108
9120 [151]V,C:[151]V[170]2,F[171]238:C[178]C[170]2:F[178]F[170]2:[139]C[178]254[167][151]V[170]16,3:[137]9130
9121 [139]C[178]E[167]9140
9122 [139]C[177]B[167]Y[178]Y[171]1:[151]V[170]3,Y:F[178]F[171]2
9123 [137]9120
9130 [151]V,C[171]254:[151]V[170]2,F[171]238:C[178]C[170]2:F[178]F[170]2
9131 [139]C[178]E[167]9140
9132 [139]C[177]B[167]Y[178]Y[171]1:[151]V[170]3,Y:F[178]F[171]2
9133 [137]9130
9140 [151]53281,1:[151]SI[170]22,90:[151]SI[170]4,0:[151]SI[170]5,45:[151]SI[170]6,0:[151]SI[170]11,0
9141 [151]SI[170]4,129:[151]SI[170]1,8
9142 [151]V[170]21,1:[151]53281,7:[129]I[178]38[164]57:[151]50168,I:[129]K[178]1[164]16
9143 [151]V[170]39,K:[130]:[130]:[151]V[170]21,0
9150 C[178]1024[170](250[172]Z):C[178]C[170]D:H[178][194](C):[151]C,32:[158]34816
9151 [139]H[178]65[167]DP(Z)[178]DP(Z)[171]1
9152 [139]H[178]69[167]OL(Z)[178]OL(Z)[171]1
9153 [139]H[178]73[167]TP(Z)[178]TP(Z)[171]1
9154 [139]H[178]77[167]TA(Z)[178]TA(Z)[171]1
9155 [139]H[178]81[167][151]C,81
9156 G[178]G[170]1:[139]G[178]4[167]9158
9157 [151]V[170]16,0:[141]9070:[151]SI[170]22,10:[137]9101
9158 [151]V[170]21,0:[129]I[178]1[164]1000:[130]:[151]53265,65
9159 [151]SI[170]24,0:[151]V[170]21,255:[151]V[170]39,1:[151]V[170]16,0
9160 [151]SI[170]23,240:[151]V[170]29,240:[137]3000
9999 [151]211,X:[151]214,Y:[158]58640:[142]
10000 [143] PFAENDUNG
10001 [151]53269,254:[153]"LOAD":[141]7000:[151]53281,11:[151]V,0
10002 [153]"SYS   OH WEH !! EINE SCHLECHTE NACHRICHT
10003 PRINT"   FUER IHR UNTERNEHMEN ....
10004 [153]"   SIE HABEN SICH MIT IHREN OPENSCHULDEN
10005 PRINT"   [158]LEIDER UEBERNOMMEN !!
10006 [153][163]5)"DIE PFAENDUNG WIRD VORGENOMMEN
10007 PRINTTAB(5)"[156]******************************
10008 [153]"SYS IHRE VERLUSTE :
10009 PRINT"   DATTELPLANTAGEN :"DP(A)""
10010 PRINT"    TABAKPLANTAGEN :"TP(A)""
10011 PRINT"     TABAKFABRIKEN :"TA(A)""
10012 PRINT"         OELFELDER :"OL(A)""
10013 PRINT"         VERMOEGEN :$"GE(A)"":POKE53265,155
10020 B=1024+A*250:J=0
10021 C=PEEK(B):IFC=65THENGE(A)=GE(A)+1000:DP(A)=DP(A)-1:POKEB,32:GOTO10040
10022 B=B+1:J=J+1:IFJ=250THEN10024
10023 IFDP(A)>0THEN10021
10024 B=1024+A*250:J=0
10025 C=PEEK(B):IFC=73THENGE(A)=GE(A)+1500:TP(A)=TP(A)-1:POKEB,32:GOTO10050
10026 B=B+1:J=J+1:IFJ=250THEN10028
10027 IFTP(A)>0THEN10025
10028 B=1024+A*250:J=0
10029 C=PEEK(B):IFC=77THENGE(A)=GE(A)+6000:TA(A)=TA(A)-1:POKEB,32:GOTO10060
10030 B=B+1:J=J+1:IFJ=250THEN10032
10031 IFTA(A)>0THEN10029
10032 B=1024+A*250:J=0
10033 C=PEEK(B):IFC=69THENGE(A)=GE(A)+5000:OL(A)=OL(A)-1:POKEB,32:GOTO10070
10034 B=B+1:J=J+1:IFJ=250THEN10036
10035 IFOL(A)>0THEN10033
10036 PRINT"[158] IHRE FIRMA HAT KONKURS ANGEMELDET !!!
10037 OE1(A)[178]0:DA1(A)[178]0:ZI1(A)[178]0:GE(A)[178]10000:MU(A)[178]1:IN(A)[178]0:KI(A)[178]0
10038 I[178](A[172]250)[170]1024:J[178](A[172]250)[170]1274:[129]B[178]I[164]J:[151]B,0:[130]:[137]10103
10040 [141]2047:X[178]20:Y[178]16:[141]9999:[153]""DP(A)"":[139]DP(A)[179]10[167][151]49814,32
10041 [141]10080:[139]GE(A)[179]F[167]10022
10042 [137]10100
10050 [141]2052:X[178]20:Y[178]17:[141]9999:[153]""TP(A)"":[139]TP(A)[179]10[167][151]49854,32
10051 [141]10080:[139]GE(A)[179]F[167]10026
10052 [137]10100
10060 [141]2060:X[178]20:Y[178]18:[141]9999:[153]""TA(A)"":[139]TA(A)[179]10[167][151]49894,32
10061 [141]10080:[139]GE(A)[179]F[167]10030
10062 [137]10100
10070 [141]2060:X[178]20:Y[178]19:[141]9999:[153]""OL(A)"":[139]OL(A)[179]10[167][151]49934,32
10071 [141]10080:[139]GE(A)[179]F[167]10034
10072 [137]10100
10080 X[178]21:Y[178]21:[141]9999:[153]"         ";:X[178]21:Y[178]21:[141]9999:[153]""GE(A)""
10081 [142]
10100 [153][163]5)" O.K IHR SCHULDENLIMIT WURDE
10101 PRINTTAB(10)"WIEDER ERREICHT !!!";
10102 GOSUB2050:FORI=1TO1000:NEXT
10103 J=PEEK(56320):IFJ=111THENPOKE53281,8:P=0:GOTO999
10104 GOTO10103